home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 23 Geos Applications / TRCKBL.BIN / DEMO2 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  30 lines
  1. 10 S=49152
  2. 20 POKE2040,13:POKE53280,0:POKE53281,0
  3. 30 FORK=832TO894:READX:POKEK,X:NEXT
  4. 40 FORK=STOS+156:READX:POKEK,X:NEXT
  5. 50 FORK=1TO21:READX,Y:H=INT((S+Y)/256):L=S+Y-H*256:POKES+X,L:POKES+1+X,H:NEXT
  6. 60 V=53248
  7. 70 POKEV+21,1:POKEV+28,1
  8. 80 POKEV+39,7:POKEV+37,1
  9. 90 POKES+160,24:POKES+161,0:POKES+159,50
  10. 100 P=56321:N=16
  11. 110 SYSS:SYSS:SYSS:SYSS:SYSS:IF(PEEK(P)ANDN)=NTHEN110
  12. 120 POKE198,0
  13. 130 REM        SPRITE DATA
  14. 140 DATA85,0,0,100,0,0,105,0,0,90,64,0,70,144,0,1,144,0,0,64,0,0,0,0,0,0,0
  15. 150 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  16. 160 REM     MACHINE LANGUAGE DATA
  17. 170 DATA 173,157,192,141,158,192,169,14,141,3,220,169,0,141,163,192,169,8,141
  18. 180 DATA 162,192,162,255,142,0,220,173,162,192,9,241,141,1,220,173,1,220,74
  19. 190 DATA 46,163,192,78,162,192,208,236,169,239,141,3,220,142,1,220,173,1,220
  20. 200 DATA 41,240,13,163,192,162,0,142,3,220,141,157,192,41,10,77,158,192,72
  21. 210 DATA 41,12,201,12,240,10,201,8,208,9,206,159,192,24,144,3,238,159,192
  22. 220 DATA 104,41,3,201,3,240,15,201,2,208,19,206,160,192,208,14,206,161,192
  23. 230 DATA 24,144,8,238,160,192,208,3,238,161,192,173,161,192,41,1,141,161,192
  24. 240 DATA 173,16,208,41,254,13,161,192,141,16,208,173,160,192,141,0,208,173,159
  25. 250 DATA 192,141,1,208,96
  26. 260 REM        LOCATION DATA
  27. 270 DATA 1,157,4,158,14,163,19,162,27,162,39,163,42,162,60,163,68,157,73,158
  28. 280 DATA 87,159,93,159,107,160,112,161,118,160,123,161,126,161,131,161,139,161
  29. 290 DATA 145,160,151,159
  30.